home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 17bals.zip / RBBSSUB2.ALS < prev    next >
Text File  |  1988-11-06  |  6KB  |  140 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against virgin17\rbbssub2.bas to produce ..\rbbssub2.bas
  3. * rbbssub2.bas:  Date 10-2-1988  Size 130944 bytes
  4. * ------------[ Created 10-11-1988 06:54:29 ]------------
  5. * REPLACING old line(s) by new
  6. 2250 SUB WHOCHECK (WHO.FIND$,WHO.FOUND,USER.NUM.FOUND) STATIC
  7.      USER.NUM.FOUND = 0
  8.      IF START.HASH <> 1 THEN _          'Pe FIX 11/06/88
  9.         WHO.FOUND = TRUE : _
  10.         EXIT SUB
  11.      WHO.FOUND = FALSE
  12.      TO.SYSOP = (INSTR(WHO.FIND$,"SYSOP") > 0 OR _
  13.                  INSTR(WHO.FIND$,SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$) > 0 )
  14.      CALL OPENUSER (HIGHEST.USER.RECORD)
  15.      FIELD 5, 128 AS USER.RECORD$
  16.      IF TO.SYSOP THEN _
  17.         X$ = SYSOP.PASSWORD.1$ + " " + SYSOP.PASSWORD.2$ _
  18.      ELSE X$ = WHO.FIND$
  19.      CALL FINDUSER (X$,"",START.HASH,LEN.HASH,_              ' KG101607 + PeFix
  20.                     0,0,HIGHEST.USER.RECORD,WHO.FOUND,_     ' KG101607 + PeFix
  21.                     USER.NUM.FOUND,SL)
  22.      IF USER.FILE.INDEX > 0 THEN _
  23. * ------[ first line different ]------
  24.     GET 5, USER.FILE.INDEX
  25.      IF NOT WHO.FOUND THEN _
  26.         IF TO.SYSOP THEN _
  27.        WHO.FOUND = TRUE _
  28.     ELSE CALL ALIASCHK (WHO.FIND$,WHO.FOUND,USER.NUM.FOUND) : _  'DGS-ALSMN
  29.          IF NOT WHO.FOUND THEN _                                 'DGS-ALSMN
  30.         CALL QTPUT (WHO.FIND$ + " not active user",1)        'DGS-MNMOD
  31.      END SUB
  32. ' $SUBTITLE: 'ALIASCHK - Checks whether ALIAS exists'
  33. ' $PAGE
  34. '
  35. '  SUBROUTINE NAME    -- ALIASCHK
  36. '
  37. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  38. '                         WHO.FIND$                ALIAS to find
  39. '
  40. '  OUTPUT PARAMETERS  --  WHO.FOUND                Whether ALIAS found
  41. '                         USER.NUM.FOUND           Record # of User
  42. '
  43. '  SUBROUTINE PURPOSE --  Validate that ALIAS exists.  Get User Record
  44. '
  45. 2257 SUB ALIASCHK (WHO.FIND$,WHO.FOUND,USER.NUM.FOUND) STATIC        'DGS-ALSMN
  46.      CALL BRKFNAME (MAIN.USER.FILE$,DRV$,PREFIX$,EXT$,TRUE)          '
  47.      DGS.TEMP = INSTR(GRN$," ")                                      '
  48.      IF DGS.TEMP > 0 THEN _                                          '
  49.     DGS.FILE.NAME$ = DRV$ + LEFT$(GRN$,DGS.TEMP-1) + "A.DEF" _   '
  50.      ELSE DGS.FILE.NAME$ = DRV$ + GRN$ + "A.DEF"                     '
  51.      CALL FINDIT (DGS.FILE.NAME$)                                    '
  52.      IF NOT OK THEN _                                                '
  53.     EXIT SUB                                                     '
  54.      OPEN "I", 7, DGS.FILE.NAME$                                     '
  55.      DGS.ALIAS$ = ""                                                 '
  56.      WHILE DGS.ALIAS$ = "" AND NOT EOF(7)                            '
  57.     INPUT #7, DGS.USER.NAME$, DGS.TEMP.ALIAS$                    '
  58.     IF DGS.TEMP.ALIAS$ = WHO.FIND$ THEN                          '
  59.        DGS.ALIAS$ = DGS.USER.NAME$                               '
  60.     END IF                                                       '
  61.      WEND                                                            '
  62.      CLOSE 7                                                         '
  63.      CALL OPENUSER (HIGHEST.USER.RECORD)                             '
  64.      FIELD 5, 128 AS USER.RECORD$                                    '
  65.      CALL FINDUSER (DGS.USER.NAME$,TEMP.INDIV.VALUE$,START.HASH,LEN.HASH,_  '
  66.             START.INDIV,LEN.INDIV,HIGHEST.USER.RECORD,WHO.FOUND,_   '
  67.             USER.NUM.FOUND,SL)                                      '
  68.      END SUB
  69. ' $SUBTITLE: 'EDITALINE - Edits a line in a message'
  70. ' $PAGE
  71. '
  72. '  SUBROUTINE NAME    -- EDITALINE
  73. '
  74. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  75. '                         L                        Line # to edit
  76. '
  77. '  OUTPUT PARAMETERS  --  A$(L)                    Edited line
  78. '
  79. '  SUBROUTINE PURPOSE --  Edit a line in a message.
  80. '
  81.      SUB EDITALINE (L) STATIC
  82. * REPLACING old line(s) by new
  83. 10987 A$(1) = DISK.FOR.DOS$ + _
  84.               "COMMAND /C " + _
  85.               Z$ + _
  86.               " " + _
  87.               NODE.ID$
  88.       A$(2) = RBBS.BAT$
  89.       Z$ = LEFT$(Z$,LEN(Z$) - 4)
  90.       IF TRANSFER.FUNCTION = 3 THEN _
  91.          Y$ = "Registration" : _
  92.       ELSE Y$ = Z$
  93.       A$ = Y$ + _
  94.            " door opened at " + _
  95.            TIME$ + _
  96.            " on " + _
  97.            DATE$
  98.       SUBROUTINE.PARAMETER = 5
  99.       CALL TPUT
  100. * ------[ first line different ]------
  101.       CALL UPDTCALR (Z$ + " door opened! " + TIME$,2)             'DGS-010
  102.       CLOSE 2
  103.       OPEN "O",2,"DORINFO" + _
  104.                  NODE.FILE.ID$ + _
  105.                  ".DEF"
  106.       PRINT #2,RBBS.NAME$
  107.       PRINT #2,SYSOP.FIRST.NAME$
  108.       PRINT #2,SYSOP.LAST.NAME$
  109.       PRINT #2,COM.PORT$
  110.       B$ = MID$(BAUD.PARITY$,INSTR(BAUD.PARITY$," B"))
  111.       PRINT #2,TALK.TO.MODEM.AT$;B$
  112.       PRINT #2,NETWORK.TYPE
  113.       IF GLOBAL.SYSOP THEN _
  114.          PRINT #2,"SYSOP" : _
  115.          PRINT #2,"" _
  116.       ELSE PRINT #2,ORIG.FIRST.NAME$ : _                          'DGS-ALS
  117.            PRINT #2,LAST.NAME$
  118.       PRINT #2,CITY.STATE$
  119.       PRINT #2,GR
  120.       PRINT #2,USER.SECURITY.LEVEL
  121.       CALL TIMEREMAIN (TIME.REMAINING!)
  122.       PRINT #2,INT(TIME.REMAINING!)
  123.       PRINT #2,FOSSIL
  124.       CALL RBBSEXIT (A$(),2)
  125.       END SUB
  126. ' $SUBTITLE: 'RBBSEXIT -- Setup to exit RBBS'
  127. ' $PAGE
  128. '  SUBROUTINE NAME    -- RBBSEXIT
  129. '
  130. '  INPUT PARAMETERS   -- PARAMETER             MEANING
  131. '                        LINE.ARA        Array of lines to write to batch file
  132. '                        NUM.LINES       How many lines in array
  133. '
  134. '  OUTPUT PARAMETERS  -- RCTTY.BAT$
  135. '
  136. '  SUBROUTINE PURPOSE -- TO CREATE A BATCH FILE THAT CONTROL CAN BE PASSED TO
  137. '                        AND TO EXIT RBBS-PC WHILE STILL KEEPING CARRIER UP
  138. '
  139.       SUB RBBSEXIT (LINE.ARA$(1),NUM.LINES) STATIC
  140.